## [1] "After population data extraction, 2 countries in master_data were not found in countries_population (and will be dropped):"
## [1] "Diamond Princess" "MS Zaandam"| Country_Region | Deaths |
|---|---|
| United States | 220119 |
| Brazil | 154176 |
| India | 115197 |
| Mexico | 86338 |
| United Kingdom | 43726 |
| Italy | 36616 |
| Spain | 33992 |
| Peru | 33759 |
| France | 33374 |
| Iran | 30712 |
| Colombia | 29102 |
| Argentina | 26716 |
| Russia | 24205 |
| South Africa | 18492 |
| Chile | 13676 |
| Indonesia | 12617 |
| Ecuador | 12395 |
| Belgium | 10443 |
| Iraq | 10317 |
| Germany | 9842 |
| Country_Region | Weighted_Deaths |
|---|---|
| San Marino | 1e-03 |
| Peru | 1e-03 |
| Belgium | 1e-03 |
| Andorra | 1e-03 |
| Bolivia | 1e-03 |
| Brazil | 1e-03 |
| Spain | 1e-03 |
| Ecuador | 1e-03 |
| Chile | 1e-03 |
| Mexico | 1e-03 |
| United States | 1e-03 |
| United Kingdom | 1e-03 |
| Italy | 1e-03 |
| Moldova | 1e-03 |
| Panama | 1e-03 |
| Argentina | 1e-03 |
| Colombia | 1e-03 |
| Sweden | 1e-03 |
| France | 0e+00 |
| North Macedonia | 0e+00 |
| Country_Region | Weighted_Confirmed |
|---|---|
| San Marino | 0.023 |
| Peru | 0.027 |
| Belgium | 0.020 |
| Andorra | 0.047 |
| Bolivia | 0.012 |
| Brazil | 0.025 |
| Spain | 0.021 |
| Ecuador | 0.009 |
| Chile | 0.025 |
| Mexico | 0.007 |
| United States | 0.025 |
| United Kingdom | 0.011 |
| Italy | 0.007 |
| Moldova | 0.025 |
| Panama | 0.029 |
| Argentina | 0.022 |
| Colombia | 0.019 |
| Sweden | 0.010 |
| France | 0.014 |
| North Macedonia | 0.011 |
| Country_Region | Increase_Weighted_Deaths |
|---|---|
| Andorra | 0 |
| Argentina | 0 |
| Czech Republic | 0 |
| Montenegro | 0 |
| Moldova | 0 |
| Israel | 0 |
| North Macedonia | 0 |
| Tunisia | 0 |
| France | 0 |
| Spain | 0 |
| Costa Rica | 0 |
| Iran | 0 |
| Bosnia and Herzegovina | 0 |
| Armenia | 0 |
| Jordan | 0 |
| Luxembourg | 0 |
| Hungary | 0 |
| Bulgaria | 0 |
| Romania | 0 |
| Oman | 0 |
| Country_Region | Increase_Weighted_Confirmed |
|---|---|
| Andorra | 3e-03 |
| France | 1e-03 |
| Switzerland | 1e-03 |
| Spain | 1e-03 |
| Czech Republic | 1e-03 |
| Belgium | 1e-03 |
| Netherlands | 0e+00 |
| Georgia | 0e+00 |
| Costa Rica | 0e+00 |
| Argentina | 0e+00 |
| United Kingdom | 0e+00 |
| Armenia | 0e+00 |
| Slovenia | 0e+00 |
| Montenegro | 0e+00 |
| Bahrain | 0e+00 |
| Malta | 0e+00 |
| San Marino | 0e+00 |
| Ireland | 0e+00 |
| Poland | 0e+00 |
| Luxembourg | 0e+00 |
CountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Deaths_Avg_Avg")## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)pCountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Weighted_Deaths_Avg_Avg")## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)pCountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Confirmed_Avg_Avg")## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)pCountryList <- c("United Kingdom","France","Italy","Germany","Belgium")
p <- master_data %>%
JHplot_CountryLevel(CountryList,"Increase_Weighted_Confirmed_Avg_Avg")## `summarise()` regrouping output by 'Country_Region' (override with `.groups` argument)p